[Imprint][Data Privacy Statement][E-Mail]

Back to main index. View the specification. View theorem base summary, View theorem base listing, the used properties by spec, the dependency list, the symbol table,

Specification bytes
enrich
   bytelist
with
   

   
   
   functions  int2bytes : int → bytelist;
              bytes2int : bytelist → int;
              bits2bytes : bitlist → bytelist;
              bytes2bits : bytelist → bitlist;
              byte2bits : byte → bitlist;
              fix : nat × bytelist → bytelist;
             comment: fix(n, bytes): make bytes exactly n long.;
              fillsgn : nat × bytelist → bytelist;
             comment: add leading 0/1 bytes;
   
   
   
   
   

   

   axioms int2bytes :  ⊦ int2bytes(i) = bits2bytes(int2bits(i));
          used for: ls;
          bits2bytes-base :  ⊦ # bits ≤ 8 → bits2bytes(bits) = i2b(bits2int(bits)) ';
          used for: ls;
          bits2bytes-rec :  ⊦ 8 < # bits → bits2bytes(bits) = bits2bytes(firstn(# bits - 8, bits)) + i2b(bits2int(lastn(8, bits)));
          used for: ls;
          bytes2int :  ⊦ bytes2int(bytes) = bits2int(bytes2bits(bytes));
          used for: ls;
          bytes2bits-empty :  ⊦ bytes2bits([]) = [];
          used for: ls;
          bytes2bits-rec :  ⊦ bytes2bits(by ' + bytes) = byte2bits(by) + bytes2bits(bytes);
          used for: ls;
          byte2bits :  ⊦ byte2bits(by) = fillsgn(8, int2bits(b2i(by)));
          fix-longer :  ⊦ # bytes ≥ n → fix(n, bytes) = lastn(n, bytes);
          fix-pos :  ⊦ # bytes < n ∧ 0 ≤ bytes2int(bytes) → fix(n, bytes) = mklist(i2b(0), n - # bytes) + bytes;
          fix-neg :  ⊦ # bytes < n ∧ bytes2int(bytes) < 0 → fix(n, bytes) = mklist(i2b(~1), n - # bytes) + bytes;
          fillsgn-longer :  ⊦ # bytes ≥ n → fillsgn(n, bytes) = bytes;
          used for: s, ls;
          fillsgn-pos :  ⊦ # bytes < n ∧ 0 ≤ bytes2int(bytes) → fillsgn(n, bytes) = mklist(i2b(0), n - # bytes) + bytes;
          fillsgn-neg :  ⊦ # bytes < n ∧ bytes2int(bytes) < 0 → fillsgn(n, bytes) = mklist(i2b(~1), n - # bytes) + bytes;

   

   
end enrich